'ARCADE DICE" by KLAUS CRISKATER 
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November 10, 1979 


Dear Bob, 

I have been very happy to recieve the 
ARCADIAN and wish to continue my subscrip¬ 
tion. I have enclosed my $10 check, so put 
me on your list of satisfied subscribers. 

I enjoy your monthly newsletter and get 
a. challenge in debugging or modifying the 
programs sent each issue. I have wanted to 
share some of my programming ideas with the 
Arcadians, so I decided to send you my 
version of electronic dice - I hope you 
enjoy it. 

Enclosed you will find a. tape and a 
listing of the program. Please return the 
tape when you are finished with it so that 
I can use it again for this purpose (postage 
is enclosed). I hope that I will have time 
to send other programs in the future. 

Cordially Tours, 

KLAUS GRISMATER 
320 HANNA AVE 3/8 
LOVELAND, OH 45140 





£ .** IK BRLR ICE 

3 : BY JOHN R HURST 

5 . 19/79 

6 . 

S *PtHNT- 

. " • “ I 

' FOR 2=970 39; @(Z>=48; NEXT Z 
22 PRINT " BRLRNCE ON STRTEMENT 

72 CX= -59; PRINT "$????. 77 
~ r -' CX= -59; PRINT 

IcspAces 

/ 

",; GOTO 35 
59 @<R>=K 

79 IF @<11 >=48 IF R=11PRINT " ",; N 
ENT R 

SO IF @<10>=48 IF R=19IF @<11>=48 
PRINT f" ",; NEXT R 

99 IF @<9>=48IF R=9IF @<11>=48IF 
@ <18>=48PR I NT " ",;NEXT R 
199 TV=@(R>; IF R=8PRINT ", 

119 NEXT R; PRINT 

129 INPUT " HON MRNY DEPOSITS ?"B; 
IF B=9G0T0 159 
123 CX=-59; PRINT "$????. 77 
125 FOR C=1 TO B; PRINT #2, C,; GOSUB 
1900 

130 NEXT C; PRINT “ TOTRL DEPOSITS 

149 GOSUB 2990 

145 $+@<18>, @<36>, @<72>; PRINT 

150 INPUT " HON MRNY CHECKS ?"B; I 
F B=9 $+@<9>, @<36>, @<18>; FOR E=9T0 

17; @<E>=48; NEXT E; $+9<9>, @<18>, @< 
36>; GOTO 23@ 

160 FOR E=36T0 53; @<E>=48; NEXT E 
162 CX=-59; PRINT "$????. 77 
165 FOR C=1T0 B 

170 PRINT #2, C,,’ GOSUB 1999; NEXT C 
ISO PRINT " TOTRL OUTSTRNDING CHE 
CKS= 

199CX=-59; GOSUB 2909; PRINT 
260 $+0(9).. @<72>, @<18>; FOR E=9T0 
17; @<E>=43; NEXT E; $-@<18>, @<36>, @< 
9> 

219 FOR E=18T0 35; @<E>=48; NEXT E 
229 $+@<9>, @<18>j @<36> 

239 PRINT " CURRENT BRLRNCE= ", 

249 GOSUB 2099 
999 STOP 

1009 CX= -59; PRINT "$", 

1092 FOR D=29T0 24STEP - 

1903 K=KP 

1005 IF K=31CX=-59; PRINT 
*■', GOTO 1090 

I 

1 20 @<D>=K 
1220 IF @<29>=48IF D=29PRINT " ", ; 

30 

PINT " ", ; NEXT D 

272-9 IF @<27 >=48IF D=27IF @<29>=4S 
IF 7 <28>= 48PR1NT " ", NEXT D 

. . *2- SPRTNT " ", 

2269 NEXT D; PRINT 

2 772 $+@<18), @<36>, @<54> 

1080 FOR E=18T0 35; @<E>=48; NEXT E 
1099 $+@(18), 0<54>, @<36>; RETURN 
1999 STOP 

2008 Z=l; IF @ < 53 >=56PRI NT 
2019 PRINT "$",; FOR F=52T0 42STEP 
-1 

2929 IF @<F>=48IF ZGOTO 2959 

2930 Z=9; TV=@(F> 

2940 IF F=44PRINT ", 

2959 NEXT F 

2969 RETURN 

CHECKBOOK BRLRNCE 

CLERR 

RUN 

BRLRNCE ON STRTENENT= 

$ 7777 . 77 
$1234. 56 

0 

$ 7777 . 77 
1$ 456 78 

T . EP0S!TS= $514. 66 
HON HRNY CHECKS 7 3 
$ 7777 . 77 
1$ 19. 59 
2$ 45. 99 
3 $ 7 89 

TOTRL OUTSTRNDING CHECKS= 

$ 64 . 47 

CURRENT BRLRNCE= $1684. 75> 
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from Bill Templeton 


To Robert Fabris 


n... 11-11-79 Ti . 


Dear Bob: 

Lde found a small mistake in the MICROTREK 
program in your 10-31-79 Arcadian, i.e.: 

200 CLEAR ;C^-S; If C<0 C=-C 
220 Q=Q(j)lf C<2 If G<2 Q=1 

By adding the follouing colors the game 
enhances the player's interest- (add 
just before RETURIM in each line): 

700 FC=0; 

710 FC=90; 

720 FC=172; 

730 FC=133; 

Thankyou for the fine ARCADIAN'S this 
year. Hope you received our renewal for 
1900! 


Sincerely, 






JOHN R. HURST 
128 Jade Dr. 

Wilm., Del., I98IO 
Tel: 1-302-478-1999 
11 Nov. 1979 


Dear Bob, 

First off I want to thank you for sending out the Hackers Manual, and the 
Excecutive Software. I never received them earlier, so they must have been lost in 
the mail as you said. I have been waiting to receive the package , as I was able to 
get hold of a printer from work that I thought might work with the Bally. Over the 
weekend I wired up tne printer plug in the cassette interface, and breadboarded up 
the TTL to RS232 circuit as described on page 47 of the ARCADIAN. After the usual 
corrections and adjustments made necessary by rushing to get something up and running, 
the printer worked fine. I am enclosing a few samples to show you what it looks 
like. 

The printer I am using, is a Victor Model 12^0. It uses 3 3/4" adding machine 
type paper, and prints about 34 characters per line. It is borrowed from where I 
work, and is used with computer batching systems, and electronie scales. I work for 
Toledo Scale Co., as a service technician on electonic computer scales used in retail 
food markets and delli's in case I never mentioned it before. I don't know too 
much about this printer, but am trying to get more info on it. The output from 
our scales is RS232C serial 20ma current loop, so that is why I figured it should 
work with the Bally. As you can see from the samples, it misses letter or number 
here and there, but not too many. If I slow down the note time on output, it does 
much better. It wont print the followings multiply (x); division symbol; left and 
right arrows; down arrow. I can live with that and add them in later if needed. 

One sample I've included is a checkboook balancing routine I have been using. 

I imagine that it can be trimmed down a bit, but it works as is, so I haven't done 
much to it since I wrote it. If you think it is worth printing in the ARCADIAN, go 
ahead and do so. One thing, LINE 42 & 1003 should read; PRINT "?",jCX=CX-6;K=KP 
This gives a prompt when inputing info on the screen. It doesn't look good on the 
printer output and that is why it was changed on the enclosed listing. If you aren't 


using a printer it is easier to follow with the prompt. 



-2- 


On Nov. 6, I received a phone call from Mr. J. Nieman, Director of Sales, Bally 
Mfg. Co., in response to a letter that I had written on the 2^th of Oct. It was the 
second letter I had sent since I never received an answer to my first one dated 
4 Aug. The gist of the telephone conversation that I had with Mr. Nieman was as 
follows. 

1. Bally never advertised that there would be a keyboard add-on available. 

2. Bally is not happy with the amount of units purchased. (50,000) 

5. A decision will be made in January if the keyboard will be made. 

4. To make the keyboard feasable, 100,000.»units would have to be sold, so that 
the percentage of keyboard sales would be high enough to warrant production. 

5. If the keyboard is not produced, the specifications, plans, and other info 
would be supplied to the ARCADIANS, for our use. 

6. Software for the Bally, except for the game cartridges, is not being produced 
because the retail price would be higher than what the ARCADIANS can get it 
from the newsletter, or club members selling it through the newsletter. 

7. Bally is still waiting for FCC specs, that will be needed if the Add-On is 
produced. 

8. Only 50% of the United States is being covered by Bally as far as distribution 
is concerned. 

As you can see, there are no new answers, the same old ones, along with a lot 
of excuses. So, although I appreciated the phone call, I really didn't find out 
much usefull new information. 

That's about it for now. Thanks again for the info you sent and I'll be waiting 
for Service Manual when it is available. Keep up the good work. 




'John R. Hurst 
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CUSTOM BUSINESS PROGRAMMING 

713 Bradford Drive 
Fort Walton Beach, Florida 32548 


WETZEL-COLLINS, INC. 

(904) 242-8195 
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1892 Rampaxt Lane. 
Lansdale, PA 19446 
October 17, 1979 


Robert Eabxis 
3626 WoAAie VAive 
San 3ose, CA 95?27 



Deax Bob: 


Enclosed you will kind a tape containing a pAogAam iXelt you 
might mnt to make available &oa kA.ee distribution, f A bAiek descxip- 
tion is pAovided by attachment 1. UnkoAtunately, the pAogAam evolved 
oveA a pexiod ok time and I do not have a lifting ok it. The tape 
hoi, two copies ok the pAogAam. One on each .1..do._desJxe....the 

AetuAn ok the taoe aktex uoua com . Ik you would, youA addition "7 
' ok otheA pAogAams you have available would be appAeciated. _ ! 

■' I would also like to note sevexal cxaoa. 4 in David 1 bach 1 a Space Wax 
PAogAam on page 79. F ixst, in lines 300 and 500, multiplication — 
is designated by an astexisk. Secondly, line 820 should Aead T-5 
- instead o k y -5 in the second line statement. 



%egaAding youA keyboaAd/memoAy unit, I am inteAested in the pAoduct 
iyou axe developing and would like to be kept abAeast ok its pAogAess, 


heaxt ok the Bally Axcade and I would be intexested in obtaining a 

)k it by whatevex means you devise. M y backgAound in Soktwaxe is 
ible ik you have need ok txanscxiption sexvices. * 



Best Regaxds, 



JAJ/cm 
A tt. 







Mr. Wayne ^GpfeiSn, Editor 
KHobajjd^ Microcomputing 
Pe^eflx) rough, N.H. 03U58 

Dejp>4fe[yne, 

Somewhere between the corrected proof and the published 
article, "Have a Ball with Bally", in the November 1979 issue 
a couple of important program segments were lost. The 
corrected lines are as follows: 

270 GOSUB UiO; If G=1 GoTo 330 
280 If S = 0 R = R + 1j Go To 330 

To those who asked for an easier version, substitute the 
following lines: 

260 If X< 3 If X> -3 If Y< 3 If -3 Go To 300 

UhO If X< U If X> -k If Y< i* If Y> -k A=520j G=1 5 Go To 1;60 

My thanks to everyone who telephoned and wrote to me. Your 
compliments were indeed appreciated. 

Respectfully, 

Richard J. Nitto 

IOI4.O Pennsylvania Ave. 

R.D. # 2 

Binghamton, N.Y. 13903 



PROGRAM NAME LOQO 


Page of 
Comments 
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*0) '37 . 


3o 

.BC.=3.5>;.FC,*.7. 


■4.g>. 

FoR A*1 To 15^ , , , 


So 

H-RNi (if.#) S4 jXs X.U\f3B ) - 44 
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TP 

n/ext A. , , 


_ So 
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, f.c 

AU) rt4S;&(l 1.) , , . 


l.O.P 

,C^,-AAyCX=4 . 


■ 1 , 1 , 0 . 

P R I NT." ARCAD IAN 


1 , 2 , 0 , 

LI NS 4,4.4. . . 


■ (,3,0. 

Pol? Qc<ft to ,35 STEP Z , 


_jl45 

LINE , 753 ^ 35 ^ 1,1 ME, ,^ 3 ^ 3 , 4 . 


,(5,o, 

L ( WE 75l-<?33: L 1 KJE , 


1 , 60 , 

nIeXT <9 .. , , 



L- 7 :FcR ,?.= 4,S Tc SI. 


, 10 , 0 , 

& G y k ^ 1 k L *,1 


a 

*nJ 

1 

_i 

u 

_i 


loQ 

>J E XT 2. 


, 2 ,i,o, 

B5,X, -2 2^.5^ * <? .5. 


520, 

for a= 4 5 to :* . ■ , ,. 


5,30, 

Ll Ne 7,Slq .3:1,1 ME , 



LINE , 75 , 5 .-^ 5 . 3,311 ME <pj4 } 4 


zso 

ME,XT <3 ,', ' .', 


2(oO 

4 oTo 550 , , , 

1 

, . ■ ■ . , .DWISI^ . 

. 5< 4<j^U^Ca urirT . 


,1,0, 

,r,N,P,ur X* Y,2 . 


-L ,Z,Q, 

x^y ,; . 



PJ?I.isJ T, ,^I 3 . 


,A° 
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>LI5T 


i 000 . 

H884 : RETURN 
4Q05 . MEMORY DISPLRV 
4006 . CHUCK THOMKR 4RPR79 
4810 INPUT " FIRST LOCRTION # ="F 
4029 INPUT " LRST LOCRTION # ="L 
4830 INPUT " STEP RMOUNT ="S 
4048 FOR N=FTO LSTEP S 
4858 PRINT #6', H #1, " ,V", 

4868 E=N.: GOSUB 4288 
4878 H=I'.(N ' 

4088 PRINT #1, " =(", 

4898 E=Hj GOSUB 4288 


4188 PRINT #3, " 
4118 NEXT N 
4128 GOTO 4818 
288 S=8 

418 IF E<8E=Ef3. 
4228 E= EC6 ; D=RM 

' • _ - 

4248 E=E±J 
4258 R=E+S 


H 

; S=8 


4268 E=RjGOSUB 4488 


4278 E=Bj GOSUB 4488 


4288 E=C; GOSUB 4488 
4298 E=DjGOSUB 4488 


4388 RETURN 

488 IF 8<=E IF E<18PRINT #3, E, J RET 


URN 

4418 TV=55+E.: RETURN 




,7 

FIRST LOCATION # = Q 
LAST LOCATION # = 3000 


STEP RMOUNT 

o -moo 

2 30002 
4 30004 
6 30006 
8 30008 
10 3000F! 
12 3Q00C 

16 30010 
18 30012 
20 30014 
22 30016 
24 30018 
26 30018 
28 30Q1C 
30 3001E 
32 30020 
34 30022 
36 30024 
38 30026 
40 30028 
42 30028 
44 3Q02C 
46 3002E 
48 30030 
50 30032 
52 30034 
54 58036 
56 30038 
58 38038 
SO 3003C 
62 3003E 
64 30040 
66 30042 
68 30044 


74 30048 
76 5884C 
78 3004E 

80 30050 
82 30052 
84 30054 
36 38056 
88 58058 
90 30058 
92 3005C 
94 3805E 
96 30060 
98 30062 
108 30064 
B 


(F3O0) 

-3328 

<D30F)- 

■11345 

(0308)-15608 

(0C61) 

3169 

C17C3 > 

1987 

<1C2@) 

7208 

<1030 

7228 

<FF20> 

-224 

<0803) 

2755 

<0620) 

1568 

CQ7FB) 

2043 

<FF52> 

-174 

<0DC3> 

3523 

<FB20> 

-1248 

<1076) 

4214 

<09FD>—13827 

<1003) 

4291 

(7320) 

29472 

<7223) 

29219 

(FFC9) 

-55 

<1303) 

5059 

■2128) 

8480 

<0000) 

0 

<FFC9) 

-55 

<1603) 

5827 

(6020) 

27936 

(0188) 

395 

(FFQ1) 

-255 

(F5E3) 

-2589 

<0505)~10811 

<E5DD) 

-6691 

<E5FD) 

-7659 

C21F0) 

8701 

<0000) 

0 

<39FD) 

14845 

<237E) 

9086 

(7811) 

31249 

<1F02) 

7938 

<3638) 

13880 

(D5E5)-10779 

<CB2D-13535 

(0700) 

1792 

(165F) 

5727 

<1708) 

588S 

(O330) 

816 

(FD28) 

-726 

(194F) 

6479 

C235E) 

9054 

(0556)- 

-10922 

<66FD) 

26365 

(FOOB) 

-757 



NUMBER MATCH 


4. NUMBER MATCH 

5. BY SCOTT WALPOLE 

10 CLEAR;C=0;NT=0;BC=249;FC=7 
20 BOX 0,0,40,40,1 
30 BOX 0,0,30,30,2 
40 FOR A=1 TO 50 
50 B=RND (9) 

60 CX=0;CY=0;PRINT #1,B 
70 FOR D=5 TO -5 STEP -1 
80 G=0 

90 IF &(23 ) =8 G = 1;GOTO 200 
100 IF &(22)=8 G=2;GOTO 200 
110 IF &(21)=8 G=3;GOTO 200 
120 IF &(23)=4 G=4;GOTO 200 
130 IF &(22)=4 G=5;GOTO 200 
140 IF &(21)=4 G=6;GOTO 200 
150 IF &(23)=2 G=7;GOTO 200 
160 IF &(22)=2 G=8;GOTO 200 
170 IF &(21)=2 G=9;GOTO 200 
180 IF D=-5 GOTO 220 
190 NEXT D 
200 IF G#B GOTO 80 
220 C=C+D 

250 CX=-30;CY=-32;PRINT "SCORE ♦»,#2,C 
260 IF A=50 GOTO 300 
270 NEXT A 

300 CLEAR ;PRINT "YOUR FINAL SCORE " ,#2 ,C 


INSTRUCTIONS 

The object of this game is to match the numbers 
one at a time as quickly as possible for the 
highest score. You have approx. 2 seconds to 
repeat the number displayed within the box 
using the keypad. If you press the wrong number, 
try for the same number again before your 2 
seconds are up. If you still haven't got the 
right number and the 2 seconds have run out, 

5 points will be deducted from your score and 
the computer will select a new number. Continue 
repeating the number until the program stops. 
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*SAUCER BATTLE* 
BY JOHN HURST 
9/79 


10 

- 100 

200 

- 290 

300 

- 495 


500 

- 530 
540 

600 

- 680 

700 

- 780 

800 

- 860 

900 

- 960 

.000 

-1010 


Initialize and Input mode of play. Draw stars and print scoring. 
Draw saucers and allow control by hand controls. Two player game. 
One player against computer. Draw saucers, left for player, 
right for computer. Computer random positioning and movement. 

Set ups for computer or TR(1) firing. 

Set ups for TR(1) or TR(2) firing in two player mode. 

Back to two player program if neither saucer fires LASER. 

Fire left saucer's LASER,if a hit goto blowup routine, if not 
go back to one or two player routine, whichever is in use. 

Same as 600, but for right saucer. 

Blowup right saucer, back to main program in use. Upgrade score. 
Blowup left saucer, back to main program in use. Upgrade score. 
Print GAME OVER. If GO key is pressed, goto line 10 to play 
again. 


This game can be played by two or one, (against the computer). 
Difficulty of hitting target can be selected, $-*!, $ being the hardest. 

Amount of LASER blasts and Max Score to win can be selected. If one player 
option is selected, accuracy of the computer can be set, 0^2, jO' being the 
most accurate. If the computer fires when accuracy is it will not mi^s. 

If both triggers are pulled at the same time, neither will fire, in two 
player option. If remaining LASER blasts are five or less, an open hole 
will appear in the center of the saucer that is low on charge. When all 
charge for LASER' is depleted for one saucer, he can no longer fire. If 
both saucers are depleted of charge, or Max Score is reached by one saucer, 
game is over. To play again just press GO key. 

The memory use of this game is very close to the max assailable to the 
Bally, so care should be used when entering this program. Use no spaces unless 
necessary, the listing may have extra spaces due to my typing. If you 
don't need them, don't use them. Also deleting lines 1-5 can save some 
memory if needed. Good Luck. 


John R. Hurst 
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PROGRAM NAME 'SAoCEK. BATTLE 



3 O 


Line # Statement(s) Comments 


1 A,0,CE,g BAtt.le*, 


l 

3 

.BT UoHM Hurst 

5 

. .l./.ixi. 

to 

? - 4> yfy - tfi 3 I * <j> l yH7 » 1 , , , V , , 

Zo 

CLEAR 1 BC = d: FC.- J,Z & : & ( <J>) - fl l 

__ £(l)=i\l(z) = 12(,a(3)*<t , 

.30 

INPUT"bIFF 1 C U LTY : ?" N, 

4o 

PRINT “HOW MAUY 

So 

INPUT 1 ' LASER BLASTS F" U 

. feo 

1 KJPOT "MAX SCORE H. 

, x 1.0 

INPUT"! oR 2 PL A T EPS ?" L 


IF L- 1 INPUT" ACCURACY oF 

computer.:,4,-*. 2 , F" M. 

. lo 

C LEA R : F OR, A - l.T oSS t B-R u'h, , , 

(.I3<!) -6S:C--RW,l>/3*1-44.. 

^ ... <?o 

Box B.C* i . 1, 1 rtf EXT A • CX = , 

r,in.i,CX*A<b'i.P.kiMT **-,SCPKg*, 

, . 10 , 0 , 

ex--77.-cr--32.• p/?/<vt #i«f. 7 . 

_ ... £6*XiAk /-X 3<*S<6. 

2 0,0 

H-ktlll.)* A-.6.- y im,KH,(.Z.),*A-& 


BPXrlSyK ,4.4,3.:,RoX7.5-. b.,4,,, 



ZZO 

IF F> * U- 5 Boy-75 5 K. 2 r £j,3 . 

u 230 

IF ^>,-,U-5 Box 75^b. 2,2 5 A 

__ 2,4 o 

IF F > = 0- 5 BOX- ■’fs\,KyZ,1,2,'x. 

_ 250 

IF ^>-0-5 Box 75 5 b 5 2,2^3 

24o 

Box -75 « X . 4 .4. 3 : BOX 7 S\ 1 >.> 4 . 

4.3 : / ' 

2 , 7 . 0 . 

IF F-U IF ^ = U ^OTO X<Zws6<zS , 

zgo 

IfY.trYI) )-YTR('x).Vfo.To 

_ 140 

CjoTo 24>0 

_300 

1>'=RKll)C7fe)-38. , , , 

_ 3 1o 

K-MCU* 4-6$ i-b+RNlYJd) -S' 

320 

IF T)>25 1>=2S- ._, , 

330 

IF l><-38 D--38 , _ 

34o 

Bo x- 75^ X * 4 . 4.3 i BOX 75 . b,. 4 . 

_ a. 3,r. /,,.. 

u ■ 350, 

IF F> = U- 5 &M,-1S, r K yl y Z,,A 

, 3,6o 









PROGRAM NAME 


Page of 


Line # 


Statement(s) 


Comments 


370 IF 0=0-5 ROX-7 .SyUf.lyZ.^S 
_3So IF f>=U-5 Sox, 7 ■S'jb.,2,.,2,3, 



4, 3 


4o© IF F-U IF <q = U 40 TO ,l<a<a<ft 


4 l o I F f = u„iorn 44^ > 


4zo 1FT? Cl.) ffCTo M4> 


43o I F 4«,u ^.©.T.o 314 , , , , , . . 


4,4p I F M- 2 4o_t.p 4<S4> ... 


450 IF M = Z 40 T 0 4^?<25. 


460 IF K>D-1 IF ,K,<,!>,+, 1 4,0,To 7,OjzS 


4-1 0 <joTo 3,14 . 


i@o IF K>t-3 IF ^1)73 4o.ro 1 d>d> 


48 £ 40 To, 3\(p 


440 IF ,£>!>-6 IF 4ot,o 7 <t>d> 


4$S 30 TO, 3 f 46 ,,,,,,. . 


500 IF F*U 40 T ,0 ,5,3,<5 


0 IF X,fcYl ) 6 ©T© 6<z5<z5. 

5*o IF 4 = U froTo. Z.<t >4 , . , 

, , ,53 a If rf.RrlV i^pTo, 7.^0 

<54- 0 fycTo Z<t*<b .. 

Bo*- 7 .^ <y 4,4 y l 5 Bp tf 



£>/o, F«F,+ 1 il l hi 6- 73 ,. Z r 4;,U M5 , , 


, TSyK.,3, 


tie A Cl .i.5 ,-z.ss.i L(t.t.)rxss.t. : 


UCZ3)*44- . 


>3 0 L l M.E .-7 3 3 , 1 ^lyLl AE JS^XyS y , , 


.. UNedi^^jAC/O-^jV&f* / )=^5 


kCzsY*'<(\ IF M^Kot© 67 ,^ , , 


£ 4-0 IF OV- 2 IF < 0 ^ <Q^a&8^ 


(0 So BoZ-,7S y 4 r 4 , Z:Bo x 7S~ 5 l y 4 y 


4) 2$XF' L*1' tfOTo 34<A , 


65© ^oTo 20^ 


fe. 70 , IF <>^>-3 IF m+3 ( { vsu&e4>4 


(obo ^O'TO GS4> 


" y b ^ ty 




710 4-4*1 i. Li NE 73. h.4; 11 r.7S .. 

. £.3 ' , ' ' r. 












PROGRAM NAME 


Page of 




Line # 

. . Statement(s) 

l(Z2)=,ZS,S.- y M.Z.i)=ZS5, , , . . 

Comments 

_73 o 

LI N6 73^.4: L INE-75\fc.3:.U 


_ . ,. N.e s'A 3) - 4,5 

.I F ,L=,2 IF N'=l 60 T 0 7 l.d> . 

...74c 

IF b>K-2 IF b <X.f.2. 


^ ISO 

Box 7,5V}> *4 *4,.2: BOX-75 .K.4 . 


4. 2:1 F L = 1 60T0 3c2><2) ...... 

760 

^CTC 2 ^ ■ . ...... 


-■7.70 

I F IH-3 IF b< < 3 40,5.0.89,cSal 



fro,To, . 75 # , . 


■ ^OO 

.FoR, .e.-.i t,o. 14t&Cq)* 37 t , , , 


IU)=,<U, ' .' 

.ai.o, 

Fof? P=^ TO 1. 


<?, 2,0 

Be X. 7S+RM (A) -2.b + RNl><'4)-? 


.. . ..... ..< i Z >l 2,>,3 l <,W l g,X.T ,P ' .. 

u-i 530 

MU- " “ " • K] E X T Ev \2A: , 


_ , &JA±^s& , .. . 

, <54o 

J - J +,1. * C X = - 7 7 t CY.= 3 2 t PRINT 


... mA±iL . , ,_/ .. 

£,50, 

IF J.-M <r|OTO ,l<P<zta$. 


- flfac, 

.Box, 7 -T«b .l<^.l4.2f/?gT0RV , , 


4 co 

FOR, E-lTol*tlf<? )»4;FC.40 


q 1 , 0 , 

FOR P-4 TO i. 


q 2 0 , 

Box - 75+ RkI^ (4} - 2,*,K4,R,K),'b, (4), 


. -2,2. sNsxt P . 

43 0 

MU = " " :JJEHT e : f C- 1 2 6 : ,<&797 


.=,£;o..'. 

14P 

I s 1*1^ C X -- 17 :,CY=3Z 5 F>RINT 1 



I T I«- H <Soto ,l4>,d>4> 



loX-~l£<K * l<fi* ld>« 2: Rstu.riJ, . 


l,0O0i 

£t~-ZSiCY^StPF\ mt"gams , , 


.gv.gs: ...., 

1 , 0 , 1 , 0 , 

R= JCP : I F f?-13 60.T0 I,4>. 


... 
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